object FrmTestePascalScript: TFrmTestePascalScript
  Left = 0
  Top = 0
  Caption = 'TESTE PASCAL SCRIPT'
  ClientHeight = 375
  ClientWidth = 455
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 33
    Height = 13
    Caption = 'IDMOV'
    FocusControl = DBEdit1
  end
  object Memo1: TMemo
    Left = 8
    Top = 165
    Width = 439
    Height = 89
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 8
    Top = 268
    Width = 439
    Height = 89
    TabOrder = 1
  end
  object Button1: TButton
    Left = 8
    Top = 88
    Width = 145
    Height = 25
    Caption = 'Adicionar Componente'
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 24
    Width = 134
    Height = 21
    DataField = 'IDMOV'
    DataSource = DataSource1
    TabOrder = 3
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 61
    Width = 145
    Height = 21
    TabOrder = 4
    Text = 'ComboBox1'
  end
  object Button2: TButton
    Left = 176
    Top = 61
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 119
    Width = 145
    Height = 25
    Caption = 'Executar Script'
    TabOrder = 6
    OnClick = Button3Click
  end
  object PSScript1: TPSScript
    CompilerOptions = [icAllowNoBegin, icAllowNoEnd]
    OnCompile = PSScript1Compile
    Plugins = <>
    UsePreProcessor = False
    Left = 376
    Top = 40
  end
  object SQLDataSet1: TSQLDataSet
    SchemaName = 'sysdba'
    Active = True
    CommandText = 'select * from tmov'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = 1
    Params = <>
    SQLConnection = DM.SQLConnection2
    Left = 296
    Top = 16
    object SQLDataSet1IDMOV: TIntegerField
      FieldName = 'IDMOV'
      Required = True
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Left = 296
    Top = 112
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 296
    Top = 64
    object ClientDataSet1IDMOV: TIntegerField
      FieldName = 'IDMOV'
      Required = True
    end
  end
  object DataSource1: TDataSource
    DataSet = SQLDataSet1
    Left = 304
    Top = 184
  end
  object PSImport_StdCtrls1: TPSImport_StdCtrls
    EnableExtCtrls = True
    EnableButtons = True
    Left = 200
    Top = 104
  end
  object atPascalScripter1: TatPascalScripter
    SaveCompiledCode = False
    ShortBooleanEval = False
    LibOptions.SearchPath.Strings = (
      '$(CURDIR)'
      '$(APPDIR)')
    LibOptions.SourceFileExt = '.psc'
    LibOptions.CompiledFileExt = '.pcu'
    LibOptions.UseScriptFiles = False
    CallExecHookEvent = False
    Left = 392
    Top = 96
  end
end
